home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
tafltggr.lha
/
Install_TAFileTagger
< prev
next >
Wrap
Text File
|
1995-12-03
|
12KB
|
548 lines
;$VER:Script for TAFileTagger
;;;; Install_TAFileTagger - TAFileTagger disk installation script for Installer
;;;;
;;;; Copyright © 1995 TAFileTagger,
;;;; OMASoft, Germany
;;;; All rights reserved.
;;;;
;;;; $Id: TAFileTagger, v 1.1 1995/11/08 20:57:34 jAl Exp $
;;;;
;;;; This script has been tested with Installer 1.24:
;;;;
;;;; Installer and Installer project icon
;;;; (c) Copyright 1991-93 Commodore-Amiga, Inc. All Rights Reserved.
;;;; Reproduced and distributed under license from Commodore.
;;;;
;;;; INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
;;;; NO WARRANTIES ARE MADE. ALL USE IS AT YOUR OWN RISK. NO LIABILITY
;;;; OR RESPONSIBILITY IS ASSUMED.
;;;;
;;;; Use following Icon tooltypes / Command line options:
;;;; APPNAME=TAFileTagger
;;;; MINUSER=AVERAGE
;;;;
(welcome " Welcome to the " @app-name " 1.1 shareware version installation.\n")
;;;;
;;;; What we are?
;;;;
(set app-name (cat @app-name " 1.1 shareware version"))
(complete 0) (transcript "On making " app-name ".")
(set @default-dest "BBS:")
; Texts
(set #Intro-Txt
(cat "\n\nWelcome to \n"
"TAFileTagger\n"
"Hard Disk Install Script\n\n\n\n"
)
)
(set #Path-Txt
(cat "Select the target directory. "
)
)
(set #Path-Help
(cat "\nThis section lets you choose the "
"target directory to install TAFileTagger. \n\n"
"Default is BBS:\n\n\n"
@askdir-help
)
)
(set #Copy-Doc-Txt
(cat "Copy document files\n"
)
)
(set #Copy-Help-Txt
(cat "Copy help files\n"
)
)
(set #Copy-Working-Txt
(cat "Copying data from floppy"
)
)
; Main
(message #Intro-Txt)
(set target
(askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
)
)
(set @default-dest target)
(set
;; Configuration
conf-dir (tackon target "configs")
;; User binaries
bin-dir (tackon target "bin")
;; documentation
doc-dir (tackon target "docs")
;; rexx directory
rexx-dir (tackon target "rexx")
;; Bulletin directory
bull-dir (tackon target "Bulletins")
;; Text directory
Text-dir (tackon target "Text")
;;
System-dir (tackon target "system")
;;
Example-dir (tackon target "Examples")
;;
Rx-Example-dir (tackon Example-dir "Rexx")
;;
Sys-Example-dir (tackon Example-dir "System")
;;
Cfg-Example-dir (tackon Example-dir "Configs")
;;
dir-pat (cat "(" "configs" "|" "bin" "|" "rexx" "|"
"bulletins" "|" "Text" "|" "System" ")")
)
;
;
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "bin/TAFileTagger")
(dest bin-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "rexx/TAFileTagger.trans")
(dest rexx-dir )
)
(complete 5)
;
; Copy the TAFileTagger tools
;
(set prgbitmap
(askoptions
(prompt "Which parts of the archive do you want to copy?")
(help "Just select the files you want to copy.\n\n"
"TAFileIndex Indexgenerator\n"
"TaggerCfgWrite WB-Configtool to "@app-name"\n"
"TaggerConCfg CLI-Configtool to "@app-name"\n"
"TAAreaExclude External Tool to exclude fileareas\n"
" by the user.\n"
"UpdateExcl Sysop Tool to update the exclude-\n"
" setups of your users.\n"
"FileCfg2Txt Nothing special...\n"
)
(choices "TAFileIndex"
"TaggerCfgWrite"
"TaggerConCfg"
"TAAreaExclude"
"UpdateExcl"
"FileCfg2Txt"
)
(default 7)
)
)
(if (BITAND prgbitmap 1)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "bin/TAFileIndex")
(dest bin-dir )
)
)
(if (BITAND prgbitmap 2)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "bin/TaggerCfgWrite")
(dest bin-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "bin/TaggerCfgWrite.info")
(dest bin-dir )
)
)
(if (BITAND prgbitmap 4)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "bin/TaggerConCfg")
(dest bin-dir )
)
)
(if (BITAND prgbitmap 8)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "bin/TAAreaExclude")
(dest bin-dir )
)
)
(if (BITAND prgbitmap 16)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "bin/UpdateExcl")
(dest bin-dir )
)
)
(if (BITAND prgbitmap 32)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "bin/FileCfg2Txt")
(dest bin-dir )
)
)
(complete 25)
;
;
(if (askbool
(prompt
"Install Magic-Rexx Files"
)
(help
"Magic Rexx Files a la Download.trans\n"
)
)
(
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "rexx/DownLoad.tagger.0")
(dest rexx-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "rexx/UpLoad.tagger.0")
(dest rexx-dir )
)
)
)
(complete 30)
; Copy langfiles
(set langbitmap 0)
(while (= langbitmap 0)
(set langbitmap
(askoptions
(prompt "Which Language do you want to copy?")
(help "Just select the files you want to copy.\n\n"
"Tagger.lang Default language (German)\n"
"Tagger.DEUTSCH.lang German language\n"
"Tagger.ENGLISH.lang English language\n"
)
(choices "Tagger.lang"
"Tagger.DEUTSCH.lang"
"Tagger.ENGLISH.lang"
)
(default 1)
)
)
)
(if (BITAND langbitmap 1)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "Configs/Tagger.lang")
(dest Conf-dir )
(infos)
)
)
(if (BITAND langbitmap 2)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "Configs/Tagger.Deutsch.lang")
(dest Conf-dir )
(infos)
)
)
(if (BITAND langbitmap 4)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "Configs/Tagger.English.lang")
(dest Conf-dir )
(infos)
)
)
; Copy Help-Files
(message #Copy-Help-Txt)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "Text/TaggerMainHelp.ANSI")
(dest Text-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "Text/TaggerListHelp.ANSI")
(dest Text-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "Text/TaggerArcHelp.ANSI")
(dest Text-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "Text/TaggerAreaHelp.ANSI")
(dest Text-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "Text/TaggerPrivateHelp.ANSI")
(dest Text-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "Text/TaggerSysopHelp.ANSI")
(dest Text-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "Text/TaggerFreqHelp.ANSI")
(dest Text-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "Bulletins/Tagger.hlp")
(dest bull-dir )
)
(complete 40)
(if (askbool
(prompt
"Install Magic-Text Files"
)
(help
""
)
)
(
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "Text/PreMarkLimit.ANSI")
(dest Text-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "Text/PreCheckIndex.ANSI")
(dest Text-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "Text/PostUpload.ANSI")
(dest Text-dir )
)
(complete 50)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "Text/PreTimeLimit.ANSI")
(dest Text-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "Text/PreRatio.ANSI")
(dest Text-dir )
)
)
)
(complete 60)
(message #Copy-Doc-Txt)
(if (not (exists (doc-dir )))
(makedir (doc-dir))
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "docs.info")
(dest target )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "docs/TAFileTagger.dok")
(dest doc-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "docs/TAFileTagger.dok.info")
(dest doc-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "docs/TAFileTagger.doc")
(dest doc-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "docs/TAFileTagger.doc.info")
(dest doc-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "docs/TAFileTagger_D.dvi")
(dest doc-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "docs/TAFileTagger_D.dvi.info")
(dest doc-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "docs/TAFileTagger_E.dvi")
(dest doc-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "docs/TAFileTagger_E.dvi.info")
(dest doc-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "Lies.Mich")
(dest doc-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "Lies.Mich.info")
(dest doc-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "Read.me")
(dest doc-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "Read.me.info")
(dest doc-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "RegForm_D.txt")
(dest doc-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "RegForm_D.txt.info")
(dest doc-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "RegForm_E.txt")
(dest doc-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "RegForm_E.txt.info")
(dest doc-dir )
)
(complete 90)
(if (askbool
(prompt
"Install Example Files"
)
(help
""
)
)
(
(if (not (exists (example-dir )))
(makedir (example-dir))
)
(if (not (exists (rx-example-dir )))
(makedir (rx-example-dir))
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "rexx/PrivUser.logon")
(dest rx-example-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "examples/logoff.trans")
(dest rx-example-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "examples/logon.trans")
(dest rx-example-dir )
)
(if (not (exists (sys-example-dir )))
(makedir (sys-example-dir))
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "system/PrivUser")
(dest sys-example-dir )
)
(if (not (exists (cfg-example-dir )))
(makedir (Cfg-example-dir))
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "examples/Main.rx")
(dest Cfg-example-dir )
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "examples/File.cfg")
(dest Cfg-example-dir )
)
)
)
(complete 100)
(exit "You should read the manuals before you wants to use "
@app-name
"\nBefore running "@app-name " you must create a Configfile\n"
"using TaggerCfgWrite or TaggerConCfg!!!\n"
"\n\n"
"Please check this archive with Md5Sum and PGP!"
"\n"
"Tia Juergen A.Lamers\n"
)
; EOF